home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Include / DOS / DateTime.i next >
Text File  |  1997-05-06  |  1KB  |  49 lines
  1. { DateTime.i }
  2.  
  3. {$I   "Include:DOS/DOS.i"}
  4.  
  5. {
  6.  *      Data structures and equates used by the V1.4 DOS functions
  7.  * StrtoDate() and DatetoStr()
  8.  }
  9.  
  10. {--------- String/Date structures etc }
  11. Type
  12.        DateTime = Record
  13.         dat_Stamp : DateStampRec;      { DOS DateStamp }
  14.         dat_Format,                    { controls appearance of dat_StrDate }
  15.         dat_Flags : Byte;              { see BITDEF's below }
  16.         dat_StrDay,                    { day of the week string }
  17.         dat_StrDate,                   { date string }
  18.         dat_StrTime : String;          { time string }
  19.        END;
  20.        DateTimePtr = ^DateTime;
  21.  
  22. { You need this much room for each of the DateTime strings: }
  23. CONST
  24.  LEN_DATSTRING =  16;
  25.  
  26. {      flags for dat_Flags }
  27.  
  28.  DTB_SUBST      = 0;               { substitute Today, Tomorrow, etc. }
  29.  DTF_SUBST      = 1;
  30.  DTB_FUTURE     = 1;               { day of the week is in future }
  31.  DTF_FUTURE     = 2;
  32.  
  33. {
  34.  *      date format values
  35.  }
  36.  
  37.  FORMAT_DOS     = 0;               { dd-mmm-yy }
  38.  FORMAT_INT     = 1;               { yy-mm-dd  }
  39.  FORMAT_USA     = 2;               { mm-dd-yy  }
  40.  FORMAT_CDN     = 3;               { dd-mm-yy  }
  41.  FORMAT_MAX     = FORMAT_CDN;
  42.  
  43. FUNCTION DateToStr(DT : DateTimePtr) : Boolean;
  44.     External;
  45.  
  46. FUNCTION StrToDate(DT : DateTimePtr) : Boolean;
  47.     External;
  48.  
  49.